(autoload-print-form): Cleanup.

diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index 27b24e642100ee2d9e310d2c98739255a30c5971..3b6e7d46bdb9c6dd6dad5dde8fcf9725bd38c015 100644 (file)
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -184,10 +184,9 @@ markers before we call `read'."
            (princ "\n(" outbuf)
            (let ((print-escape-newlines t)
                  (print-escape-nonascii t))
-             (mapcar (lambda (elt)
-                       (prin1 elt outbuf)
-                       (princ " " outbuf))
-                     form))
+             (dolist (elt form)
+               (prin1 elt outbuf)
+               (princ " " outbuf)))
            (princ "\"\\\n" outbuf)
            (let ((begin (with-current-buffer outbuf (point))))
              (princ (substring (prin1-to-string (car elt)) 1)